home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jul94 / eafig01b.gif < prev    next >
Graphics Interchange Format  |  1996-07-09  |  25.6 KB  |  512x320  |  4-bit (15 colors)
   ocr: spaxtoolsvwaitconuxalt35.sC Editor Ins COEDIT CUSTOMER" PICKFORM 1 WHILE True HAIT TABLE PROMPT Editing the Customer Table.", "Press F2 to save changes. Ctrl-U to undo last change. : UNTIL "F2","UNDO","DOS", "DOSBIG" SUITCH CASE Retval = "F2": DO_IT! QUITLOOP CASE Retval = "UNDO": UNDO LOOP CASE Retval = "DOS" OR Retval = "DOSBIG": MESSAGE "Cannot shell out to DOS" LOOP ENDSWITCH ENDUHILE CLEARALL